home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / dalla rivista / host contacted / imengv3.41p1.lha / ImEngV3.41p1 / ARexx / ImageFX_Export.rexx < prev    next >
OS/2 REXX Batch file  |  1999-09-18  |  1KB  |  72 lines
  1. /*
  2. ** $VER: ImageFX_Export 1.0
  3. **
  4. ** Copyright © 1996 by Simon Edwards
  5. **
  6. ** This arexx script will export the PRIMARY image in
  7. ** ImageEngineer to ImageFX. Both programs must be running at
  8. ** the same time.
  9. ** This script was developed with ImageFX 1.5, should with later versions
  10. ** and requires ImageEngineer 3.0 (or higher).
  11. **
  12. */
  13.  
  14. OPTIONS RESULTS
  15. SIGNAL ON ERROR
  16. TEMP_FILE = 't:Image_from_IE'
  17.  
  18. if arg()==0 then exit
  19.  
  20. /* Main code */
  21.  
  22. IF ~SHOW(PORTS,'IMAGEFX.1') THEN DO
  23.      'REQUEST' '"Could not locate ImageFXs arexx port!"' '" OK "'
  24.     CALL ErrorOut 10
  25. END
  26.  
  27. 'SAVE_DATA' arg(1) '"'||TEMP_FILE||'"' '"ILBM CmpByteRun1"'
  28. IF (RC ~= 0) THEN DO
  29.      'REQUEST' '"Error when saving temporary image!"' '" OK "'
  30.     CALL ErrorOut 10
  31. END
  32.  
  33. ADDRESS "IMAGEFX.1"
  34.  
  35. Screen2Front
  36.  
  37. LoadBuffer '"'TEMP_FILE'"' force
  38. IF (RC ~= 0) THEN DO
  39.   ADDRESS 'IMAGEENGINEER'
  40.      'REQUEST' '"Error when loading temporary image into ImageFX!"' '" OK "'
  41.     CALL ErrorOut 10
  42. END
  43.  
  44. CALL Errorout 0
  45.  
  46. /* Errorout procedure */
  47.  
  48. ErrorOut:
  49.     PARSE ARG ExitCode
  50.  
  51.     IF (EXISTS( TEMP_FILE )) THEN DO
  52.       ADDRESS COMMAND "Delete >NIL:" TEMP_FILE
  53.   END
  54.   
  55.     EXIT ExitCode
  56.  
  57. /* IE's error procedure */
  58.  
  59. Error:
  60. if RC=5 then do            /* Did the user just cancel us? */
  61.     IE_TO_FRONT
  62.     LAST_ERROR
  63.     'REQUEST "'||RESULT||'"'
  64.     exit
  65. end
  66. else do
  67.     IE_TO_FRONT
  68.     LAST_ERROR
  69.     'REQUEST "Error detected!!!'||D2C(10)||'Image Engineer error message is as follows'||D2C(10)||result||D2C(10)||'Script failed on line '||SIGL||'"' 'Doh!'
  70.     exit
  71. end
  72.